home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Explorer Options 2.xpl < prev    next >
Text File  |  2002-02-06  |  2KB  |  55 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Explorer\Settings (Advanced)"
  5. "NAME"=""Classic" Explorer"
  6. "VERSION"="1.12"
  7. "OSVERSION"="011111"
  8. "LANGUAGE"="VBScript"
  9. "WARNING"="1"
  10. "TEXT 1"="Use "classic" Explorer style"
  11. "DESCRIPTION 1"="Enabling this option causes the Windows 98, ME, 2000 and XP interface (GUI) to act and look more like Windows NT 4.0/Windows 95. This disables single-click mode, Web View, Toolbars and all other Active Desktop options."
  12. "DESCRIPTION 2"="Windows XP Note: This setting does not affect the Desktop appearance, but will still disable Web View settings (such as single-click mode etc.), and also disables Internet Explorer desktop options/changes. It removes the "Desktop" from the "Apperance" applet as well."
  13. "DESCRIPTION 3"="Disable this option to restore the system defaults."
  14. "AUTHOR"="Xteq Systems (CptSiskoX)"
  15. "CONTACTURL"="http://www.xteq.com/"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="Win2000/XP source: http://windowsnt.about.com/library/tips/bltip307.htm"
  18. "COMMENT 2"="Win95/98/ME source: http://members.aol.com/axcel216/newtip9.htm#RESTRICT"
  19. "COMMENT 3"="See also @ MSKB: http://support.microsoft.com/support/kb/articles/q273/7/85.asp"
  20. "COMMENT 4"="Thanks also to Alexander Khoroshev [aelric@atnet.ru]"
  21. "COMMENT 5"="Thanks also to Bernd Pfeiffer [bernd.pfeiffer@fen-net.de]"
  22.  
  23.  
  24. 'Declaration of some constants
  25. sP="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\ClassicShell"
  26.  
  27. 'Called when the Plugin is started
  28. SUB Plugin_Initialize
  29.  s=RegReadValue(sP)
  30.  if s=1 then
  31.   Call SetUIElement(1,true)
  32.  end if
  33. END SUB
  34.  
  35. 'Called when the Plugin should validate the Data the user has entered
  36. SUB Plugin_CheckData(ElementIndex)
  37. END SUB
  38.  
  39. 'Called when the Plugin should apply the changes
  40. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  s=GetUIElement(1)
  42.  if s=true then
  43.     Call RegWriteValue(sP,1,2)
  44.  else
  45.     if RegValueExists(sP) then 
  46.        Call RegDeleteValue(sP)
  47.     end if
  48.  end if
  49. END SUB
  50.  
  51. 'Called when the Plugin is about to be removed from memory
  52. SUB Plugin_Terminate
  53. END SUB
  54.  
  55.